home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2010 April / PCWorld0410.iso / hity wydania / Ubuntu 9.10 PL / karmelkowy-koliberek-9.10-netbook-remix-PL.iso / casper / filesystem.squashfs / usr / lib / evolution / 2.28 / evolution-addressbook-clean < prev    next >
Text File  |  2009-11-03  |  594b  |  25 lines
  1. #!/usr/bin/perl -w
  2.  
  3. sub do_system
  4. {
  5.     my ($command) = @_;
  6.     system ($command);
  7.     if ($? != 0) {
  8.     die "Command failed: $command";
  9.     }
  10. }
  11.  
  12. $filename = `/usr/lib/evolution/2.28/evolution-addressbook-export`;
  13. if ($? != 0) {
  14.     $! = $?;
  15.     die $!;
  16. }
  17.  
  18. $HOME = $ENV{"HOME"};
  19.  
  20. system ("/usr/lib/evolution/2.28/killev");
  21. do_system ("/bin/mv ${HOME}/.evolution/addressbook/local/system/addressbook.db ${HOME}/.evolution/addressbook/local/system/addressbook-backup.db");
  22. do_system ("/usr/lib/evolution/2.28/evolution-addressbook-import --input-file $filename");
  23. do_system ("/bin/rm $filename");
  24.  
  25.